#!  /usr/bin/perl 
#  example of ARGV, the $. variable, and closing the filehandle 
#  
while(<ARGV>) { 
print "The file being processed is $ARGV.\n" if $. == 1; 
print "$.\t$_"; 
close ARGV if eof; 
}  
